home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / misc / edu / GeoWorld-Upd05.lha / GeoWorld_V1.08 / Install_English < prev    next >
Encoding:
Text File  |  1998-09-19  |  3.1 KB  |  144 lines
  1. ;
  2. ; *** GeoWorld  V1.0   © by Beer Productions / 09 Jun 1997 ***
  3. ;
  4. ; $VER: GeoWorld - Update-Installer V1.05 (10.05.98)
  5.  
  6. ;Variablen
  7. (set #appname "GeoWorld")
  8.  
  9.  
  10. (set @default-dest
  11.   (askdir
  12.     (prompt "Choose the directory of your HD, WHERE the GeoWorld-DIRECTORY is located.\n")
  13.     (disk)
  14.     (help @askdir-help)
  15.     (default @default-dest)
  16.   )
  17. )
  18.  
  19.  
  20. (set @default-dest (tackon @default-dest "GeoWorld"))
  21. (set #destdir (cat "\"" @default-dest "/" "\""))
  22. (set #dir      (@default-dest ))
  23. (set #datadir  (tackon @default-dest "Daten/"))
  24. (set #flagdir  (tackon @default-dest "Flaggen/"))
  25. (set #helpdir  (tackon @default-dest "Help/"))
  26. (set #kontdir  (tackon @default-dest "Kontinente/"))
  27. (set #laendir  (tackon @default-dest "Laender/"))
  28. (set #sampdir  (tackon @default-dest "Samples/"))
  29. (set #linfdir  (tackon @default-dest "LInfo/"))
  30. (set #sinfdir  (tackon @default-dest "SInfo/"))
  31.  
  32.  
  33. (working " Installation of the GeoWorld-Update V1.08 ")
  34.  
  35. (If (Not (Exists (tackon @default-dest "")))
  36.   (abort "Couldn't find the GeoWorld directory.\nThe installation will be aborted.")
  37. )
  38.  
  39.  
  40. (working " Installation of the new GeoWorld main program V1.08 ")
  41.   (copyfiles
  42.     (help "")
  43.     (SOURCE "GeoWorld")
  44.     (DEST #dir)
  45.     (optional nofail force askuser)
  46.   )
  47.  
  48. (working " Installation of the new data archiv")
  49.   (set a
  50.     (run ("C:lha x %s %s" "Daten.lha" #datadir)
  51.     )
  52.   )
  53.   (if (<> a 0)
  54.     (message "Error while installing data archiv.")
  55.   )
  56.  
  57.   ;spezielle englische Datenfiles kopieren
  58.   (copyfiles
  59.     (help "")
  60.     (SOURCE "lo")
  61.     (DEST #datadir)
  62.     (optional nofail force askuser)
  63.   )
  64.  
  65.   (copyfiles
  66.     (help "")
  67.     (SOURCE "ta")
  68.     (DEST #datadir)
  69.     (optional nofail force askuser)
  70.   )
  71.  
  72.  
  73. (working " Installation of the new online-help ")
  74.   (set a
  75.     (run ("C:lha x %s %s" "Help_engl.lha" #helpdir)
  76.     )
  77.   )
  78.   (if (<> a 0)
  79.     (message "Error while installing online-help.")
  80.   )
  81.  
  82.  
  83. (working " Installation of the new cities data ")
  84.   (set a
  85.     (run ("C:lha x %s %s" "SGes.lha" (tackon #sinfdir "Geschichte/"))
  86.     )
  87.   )
  88.   (if (<> a 0)
  89.     (message "Error while installing cities data.")
  90.   )
  91.  
  92.   (set a
  93.     (run ("C:lha x %s %s" "STou.lha" (tackon #sinfdir "Tourismus/"))
  94.     )
  95.   )
  96.   (if (<> a 0)
  97.     (message "Error while installing cities data.")
  98.   )
  99.  
  100.   (set a
  101.     (run ("C:lha x %s %s" "SWir.lha" (tackon #sinfdir "Wirtschaft/"))
  102.     )
  103.   )
  104.   (if (<> a 0)
  105.     (message "Error while installing cities data.")
  106.   )
  107.  
  108.   (set a
  109.     (run ("C:lha x %s %s" "SZ_Staedte.lha" #sinfdir)
  110.     )
  111.   )
  112.   (if (<> a 0)
  113.     (message "Error while installing cities keywords.")
  114.   )
  115.  
  116. (working " Installation of reworked worldmap and kontinents ")
  117.   (set a
  118.     (run ("C:lha x %s %s" "Kont_neu.lha" #kontdir)
  119.     )
  120.   )
  121.   (if (<> a 0)
  122.     (message "Error while installing worldmap/kontinents.")
  123.   )
  124.  
  125. (working " Installation of reworked maps ")
  126.   (set a
  127.     (run ("C:lha x %s %s" "Laender_neu.lha" #laendir)
  128.     )
  129.   )
  130.   (if (<> a 0)
  131.     (message "Error while installing maps.")
  132.   )
  133.  
  134. (working " Installation of reworked manual ")
  135.   (copyfiles
  136.     (help "")
  137.     (SOURCE "Anleitung")
  138.     (DEST @default-dest)
  139.     (optional nofail force askuser)
  140.   )
  141.  
  142.  
  143. (exit)
  144.